module Pregunta (Pregunta, nuevaP, textoP, rtaCorrectaP, puntajeP)

where

import Tipos

data Pregunta = P Texto Texto Puntaje deriving (Show)

-- Funciones generales --

nuevaP :: Texto -> Texto -> Puntaje -> Pregunta
nuevaP textoPreg textoRes puntaje = P textoPreg textoRes puntaje

textoP :: Pregunta -> Texto
textoP (P textoPreg textoRes puntaje) = textoPreg

rtaCorrectaP :: Pregunta -> Texto
rtaCorrectaP (P textoPreg textoRes puntaje) = textoRes

puntajeP :: Pregunta -> Puntaje
puntajeP (P textoPreg textoRes puntaje) = puntaje

-- Fin funciones generales --
